library(dplyr)
library(data.table)
library(qqman)
x <- read.csv("class/4001902.0/计科19402_4001902.0.csv")

# 排序
x <- x[order(x$分数, decreasing= T), ]
len <- nrow(x)
sort <- 1:len
sort <- data.frame(名次=sort)
x <- data.frame(x,sort)
# 计算平均成绩差距
avgScore=mean(x$分数)
res=x$分数-avgScore
res=data.frame(与平均分差距=res)
x=data.frame(x,res)
# 画图
hist(x$分数)
qqnorm(x$分数)
qqline(x$分数)
# 统计及格人数
passNum=0
for(i in 1:len)
{
  if(x[i,3]>=60)
    passNum=passNum+1
}
failNum=len-passNum
num=c(passNum,failNum)
name=c("及格","不及格")
pie(num,labels=name,col = rainbow(length(num)))
